library(readr); library(dplyr); library(stringr); library(lubridate)
plasticContainer <- list(
greenBox=c("paper","scissor"), # location 1
redBox=c(1L,3L,2.5), # location 2
blueBox=c(TRUE,FALSE,TRUE,TRUE) # location 3
)
plasticContainer[c("greenBox")] # or plasticContainer[c(1,2)]
$greenBox
[1] "paper" "scissor"
plasticContainer[["greenBox"]] # or plasticContainer[[1]]
[1] "paper" "scissor"
plasticContainer$greenBox
[1] "paper" "scissor"
#如果上面要取出paper,請問要怎麼延伸拿取?ans1
plasticContainer[["greenBox"]][1]
[1] "paper"
#如果上面要取出paper,請問要怎麼延伸拿取?ans2
plasticContainer$greenBox[1]
[1] "paper"
#如果上面要取出paper,請問要怎麼延伸拿取?wrong version
plasticContainer["greenBox"][1] #1是指greenbox
$greenBox
[1] "paper" "scissor"
#如果上面要取出paper,請問要怎麼延伸拿取?ans3
plasticContainer["greenBox"]$greenBox[1]
[1] "paper"
#如果上面要取出paper,請問要怎麼延伸拿取?ans4
plasticContainer["greenBox"][["greenBox"]][1]
[1] "paper"
我是分隔線
install.packages("plotly")
Error in install.packages : Updating loaded packages
download.file("https://github.com/tpemartin/github-data/blob/master/plotly_4070_neda.Rda?raw=true",destfile = "plotly_4070_neda.Rda")
嘗試 URL 'https://github.com/tpemartin/github-data/blob/master/plotly_4070_neda.Rda?raw=true'
Content type 'application/octet-stream' length 12400 bytes (12 KB)
==================================================
downloaded 12 KB
load("plotly_4070_neda.Rda")
library(plotly)
plotly_4070_neda
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0KCWtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gVFJVRSkKYGBgCgkKYGBge3J9CglsaWJyYXJ5KHJlYWRyKTsgbGlicmFyeShkcGx5cik7IGxpYnJhcnkoc3RyaW5ncik7IGxpYnJhcnkobHVicmlkYXRlKQpgYGAKCmBgYHtyfQpwbGFzdGljQ29udGFpbmVyIDwtIGxpc3QoCiAgZ3JlZW5Cb3g9YygicGFwZXIiLCJzY2lzc29yIiksICAgICAjIGxvY2F0aW9uIDEKICByZWRCb3g9YygxTCwzTCwyLjUpLCAgICAgICAgICAgICAgICMgbG9jYXRpb24gMgogIGJsdWVCb3g9YyhUUlVFLEZBTFNFLFRSVUUsVFJVRSkgICAgIyBsb2NhdGlvbiAzCikKYGBgCgpgYGB7cn0KcGxhc3RpY0NvbnRhaW5lcltjKCJncmVlbkJveCIpXSAjIG9yIHBsYXN0aWNDb250YWluZXJbYygxLDIpXQpgYGAKCmBgYHtyfQpwbGFzdGljQ29udGFpbmVyW1siZ3JlZW5Cb3giXV0gIyBvciBwbGFzdGljQ29udGFpbmVyW1sxXV0KYGBgCgpgYGB7cn0KcGxhc3RpY0NvbnRhaW5lciRncmVlbkJveApgYGAKCmBgYHtyfQoj5aaC5p6c5LiK6Z2i6KaB5Y+W5Ye6cGFwZXLvvIzoq4vllY/opoHmgI7purzlu7bkvLjmi7/lj5bvvJ9hbnMxCnBsYXN0aWNDb250YWluZXJbWyJncmVlbkJveCJdXVsxXQpgYGAKCmBgYHtyfQoj5aaC5p6c5LiK6Z2i6KaB5Y+W5Ye6cGFwZXLvvIzoq4vllY/opoHmgI7purzlu7bkvLjmi7/lj5bvvJ9hbnMyCnBsYXN0aWNDb250YWluZXIkZ3JlZW5Cb3hbMV0KYGBgCmBgYHtyfQoj5aaC5p6c5LiK6Z2i6KaB5Y+W5Ye6cGFwZXLvvIzoq4vllY/opoHmgI7purzlu7bkvLjmi7/lj5bvvJ93cm9uZyB2ZXJzaW9uCnBsYXN0aWNDb250YWluZXJbImdyZWVuQm94Il1bMV0gIzHmmK/mjIdncmVlbmJveApgYGAKCmBgYHtyfQoj5aaC5p6c5LiK6Z2i6KaB5Y+W5Ye6cGFwZXLvvIzoq4vllY/opoHmgI7purzlu7bkvLjmi7/lj5bvvJ9hbnMzCnBsYXN0aWNDb250YWluZXJbImdyZWVuQm94Il0kZ3JlZW5Cb3hbMV0KYGBgCgpgYGB7cn0KI+WmguaenOS4iumdouimgeWPluWHunBhcGVy77yM6KuL5ZWP6KaB5oCO6bq85bu25Ly45ou/5Y+W77yfYW5zNApwbGFzdGljQ29udGFpbmVyWyJncmVlbkJveCJdW1siZ3JlZW5Cb3giXV1bMV0KYGBgCiPmiJHmmK/liIbpmpTnt5oKYGBge3J9CglpbnN0YWxsLnBhY2thZ2VzKCJwbG90bHkiKQpgYGAKCmBgYHtyfQpkb3dubG9hZC5maWxlKCJodHRwczovL2dpdGh1Yi5jb20vdHBlbWFydGluL2dpdGh1Yi1kYXRhL2Jsb2IvbWFzdGVyL3Bsb3RseV80MDcwX25lZGEuUmRhP3Jhdz10cnVlIixkZXN0ZmlsZSA9ICJwbG90bHlfNDA3MF9uZWRhLlJkYSIpCmxvYWQoInBsb3RseV80MDcwX25lZGEuUmRhIikKbGlicmFyeShwbG90bHkpCnBsb3RseV80MDcwX25lZGEKYGBgCgoKCgoKCgo=